O cdigo abaixo pode ser usado para Formatar hora assim "hora:minuto h", exemplo: 15:05 h.


    Const C_HORA = 60
    
    Dim vrtHora           As Variant
    Dim vrtHoraEmMinuto   As Variant
    Dim vrtMinuto         As Variant
    Dim vrtHoraCompleta   As Variant
    
    vrtHora = 125
    vrtHoraEmMinuto = Int(vrtHora / C_HORA)
    
    vrtMinuto = vrtHora Mod C_HORA
    vrtMinuto = Format(vrtMinuto, "00")
    
    vrtHoraCompleta = vrtHoraEmMinuto & ":" & vrtMinuto & " h"
    
    Debug.Print vrtHoraCompleta

Dica criada por Vilmar Brazo de Oliveira.
http://www.vilmarbro.eti.br

Pode alterar  vontade.